home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / VAC-MAN.bas < prev    next >
BASIC Source File  |  1996-12-24  |  3KB  |  78 lines
  1. 1  REM  VAC-MAN 
  2. 2  REM  WRITTEN BY 
  3. 3  REM  CAROL OYAFUSO
  4. 4  REM  MELANIE RITTER
  5. 5  REM  NILS LUCANDER
  6. 6  REM  ALAN FOXX
  7. 7  REM  STEPHANIE THOMPSON
  8. 8  REM  11/27/82
  9. 9 HS = 0:Z6 = 0.5: GOTO 1800
  10. 10  GR : COLOR= 5
  11. 12 SC = 0
  12. 15 NT = 0
  13. 20  FOR I = 0 TO 39
  14. 30  VLIN 0,39 AT I
  15. 40  NEXT I
  16. 42  GOTO 600
  17. 43 Y = 39:X = 20: COLOR= 2: PLOT X,Y: FOR D = 1 TO 3000:OX = X:OY = Y
  18. 44  HOME : FLASH : PRINT "ON YOUR MARKS": GOSUB 900
  19. 45  HOME : FLASH : PRINT "GET SET": GOSUB 900
  20. 46  HOME : FLASH : PRINT "GO!!!": NORMAL :B =  PEEK( -16336) + PEEK( -16366) + PEEK( -16366) + PEEK( -16336)
  21. 50  COLOR= 2
  22. 51  IF CN$ = "P"  THEN 60
  23. 52  IF  PEEK( -16384) = 149  THEN X = X +0.7: IF X >39  THEN X = 39
  24. 54  IF  PEEK( -16384) = 136  THEN X = X -0.7: IF X <0  THEN X = 0
  25. 55  GOTO 70
  26. 60  IF  PDL(1) >150  THEN X = X +0.7: IF X >39  THEN X = 39
  27. 62  IF  PDL(1) <105  THEN X = X -0.7: IF X <0  THEN X = 0
  28. 70 Y = Y -Z6: IF Y <0  THEN Y = 0: FOR D = 1 TO 1200:Z6 =  -Z6
  29. 72  IF Y >39  THEN Y = 39:NX =  INT( RND(1) *40):NY =  INT( RND(1) *17) +1: COLOR= 0: VLIN NY,NY +1 AT NX: VLIN NY,NY +1 AT 39 -NX:Z6 =  -Z6
  30. 75  IF  SCRN( X,Y) = 0  THEN 700
  31. 76 B =  PEEK( -16336)
  32. 80  PLOT X,Y
  33. 90  COLOR= 15
  34. 100  PLOT OX,OY
  35. 110 OX = X:OY = Y
  36. 120  GOTO 50
  37. 600  REM  THE HAIRPINS
  38. 610  COLOR= 0
  39. 614 X = 16
  40. 620  FOR I = 1 TO 10
  41. 624 X =  INT( RND(1) *40)
  42. 625 Y =  INT( RND(1) *18) +1
  43. 626  VLIN Y,Y +1 AT X
  44. 627  NEXT I
  45. 670  GOTO 43
  46. 700  PLOT X,Y
  47. 705  FOR D = 1 TO 60:B =  PEEK( -16336): NEXT D
  48. 720  FOR J = 1 TO 50
  49. 730  POKE  -16303,0
  50. 735 B =  PEEK( -16336) + PEEK( -16336):B =  PEEK( -16336)
  51. 740  POKE  -16304,0
  52. 750  NEXT 
  53. 760  HOME : FLASH : PRINT "THE VACUUM CLEANER IS CLOGGED UP BECAUSEYOU HAVE JUST RAN OVER A HAIRPIN.       ": NORMAL 
  54. 762  FOR Q1 = 0 TO 39: FOR Q2 = 0 TO 39: IF  SCRN( Q1,Q2) = 15  THEN SC = SC +1
  55. 763  PLOT Q1,Q2
  56. 764  NEXT : NEXT 
  57. 765  IF SC >HS  THEN HS = SC
  58. 768  HOME 
  59. 770  PRINT "YOUR SCORE IS ";SC;"    HIGH SCORE ";HS
  60. 771  PRINT "PLAY AGAIN? (Y/N) =>";: GET A$: PRINT A$: IF A$ = "Y"  THEN 10
  61. 772  IF A$ = "N"  THEN  END 
  62. 776  GOTO 768
  63. 900  FOR D = 1 TO 1800: NEXT D: RETURN 
  64. 1800  TEXT : HOME : PRINT : PRINT "WELCOME TO VAC-MAN:"
  65. 1810  VTAB (8): HTAB (10): PRINT "WRITTEN BY:"
  66. 1820  HTAB (14): PRINT "CAROL OYAFUSO": HTAB (14): PRINT "MELANIE RITTER": HTAB (14): PRINT "NILS LUCANDER": HTAB (14): PRINT "ALAN FOXX": HTAB (10): PRINT "AND STEPHANIE THOMPSON..."
  67. 1830  FOR D = 1 TO 6000: NEXT D
  68. 1832  HOME : PRINT "DO YOU PREFER THE KEYBOARD OR THE GAME": PRINT "PADDLES? (K/P) =>";: GET A$: PRINT A$: IF A$ = "P"  OR A$ = "K"  THEN 1840
  69. 1835  GOTO 1832
  70. 1840  POKE  -16368,0: FOR D = 1 TO 1000: NEXT D: HOME : PRINT "VAC-MAN"
  71. 1850  PRINT : PRINT "   THE OBJECT OF THE GAME IS TO CLEAN": PRINT "AS MUCH OF THE CARPET, REPRESENTED AS": PRINT "THE GREY AREA OF THE SCREEN,"
  72. 1852  IF A$ = "K"  THEN  PRINT "WITHOUT JAMMING THE VACUUM WITH THE": PRINT "BLACK HAIRPINS.  TO MOVE, USE THE ARROW": PRINT "KEYS TO MOVE RIGHT AND LEFT AND THE": PRINT "SPACE BAR TO GO STRAIGHT.": GOTO 1864
  73. 1855  PRINT "WITHOUT JAMMING THE VACUUM WITH": PRINT "THE BLACK HAIRPINS.  TO MOVE,": PRINT "USE THE PADDLE #1 TO GO RIGHT"
  74. 1860  PRINT "AND LEFT.  YOU ARE CONSTANTLY": PRINT "GOING FORWARD.  MORE HAIRPINS": PRINT "APPEAR AS THE GAME GOES ON.  YOU"
  75. 1864  IF A$ = "K"  THEN  PRINT "YOU ARE CONSTANTLY GOING FORWARD.  MORE": PRINT "HAIRPINS APPEAR AFTER EACH LAP.  YOU"
  76. 1865  PRINT "CONTROL THE BLUE VACUUM."
  77. 1868 CN$ = A$
  78. 1870  VTAB (22): PRINT "PRESS RETURN TO PLAY  =>>>";: INPUT "";A$: GOTO 10